home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / directory loader (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  4KB  |  170 lines
  1. 10 REM ***************************
  2. 20 REM **     DIREKTORY LOADER
  3. 30 REM **
  4. 40 REM **     BY HOLGER WEIHE
  5. 50 REM **        AM SILBERBERG 1
  6. 60 REM **        3344 BOERSSUM
  7. 70 REM **
  8. 80 REM **  TEL.  05334/6589
  9. 90 REM **
  10. 100 REM ***************************
  11. 110 REM ^ = PFEIL NACH OBEN
  12. 120 REM @ = KLAMMERAFFE
  13. 130 REM ***************************
  14. 140 REM **  DIREKTORY ROUTINE
  15. 150 REM ***************************
  16. 160 REM
  17. 170 REM
  18. 180 DATA169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183,169,8
  19. 190 DATA133,186,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32,150
  20. 200 DATA255,169,0,133,144,160,3,132,251,32,165,255,133,252,164,144,208,47
  21. 210 DATA32,165,255,164,144,208,40,164,251,136,208,233,166,252,32,205,189
  22. 220 DATA169,32,32,210,255,32,165,255,166,144,208,18,170,240,6,32,210,255
  23. 230 DATA76,76,192,169,13,32,210,255,160,2,208,198,32,66,246,96,234
  24. 240 FOR I=49152 TO 49152+105:READD:POKEI,D:O=O+D:NEXT
  25. 250 IF O<>15577 THEN POKE199,1:PRINT"  FEHLER IN DATAS  ":STOP
  26. 260 REM
  27. 270 REM
  28. 280 REM ****************************
  29. 290 REM ** TITEL
  30. 300 REM ****************************
  31. 310 REM
  32. 320 REM
  33. 330 POKE53280,0:POKE53281,0:PRINTCHR$(152)
  34. 340 PRINTCHR$(14):PRINTCHR$(147)
  35. 350 PRINT"     [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  36. 360 PRINT"     [181]                           [182]"
  37. 370 PRINT"     [181]     [196]IREKTORY [204]OADER      [182]"
  38. 380 PRINT"     [181]                           [182]"
  39. 390 PRINT"     [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  40. 400 PRINT
  41. 410 PRINT"
  42. 420 [153]"     ";[199](18);" PEEKITTE AUSWAEHLEN ";[199](146):[153]:[153]
  43. 430 [153]"        ";[199](18);"1";[199](146);"   STR$IREKTORY ANZEIGEN":[153]
  44. 440 [153]"        ";[199](18);"2";[199](146);"   STR$IREKTORY BEARBEITEN":[153]
  45. 450 [153]"        ";[199](18);"3";[199](146);"   (null)UIT":[153]
  46. 470 [161] X$:[139] X$[178]"" [167] 470
  47. 480 K[178][197](X$):[139] K[179]1 [176] K[177]3 [167] 470
  48. 490 [145] K [137] 510,660,1740
  49. 500 [137] 330
  50. 510 [143]
  51. 520 [143]
  52. 530 [143] *******************************
  53. 540 [143] **   DIREKTORY ANZEIGEN
  54. 550 [143] *******************************
  55. 560 [143]
  56. 570 [143]
  57. 580 [153][199](147):[153]:[153]:[151]199,1:[153]" PEEKITTE STR$ISK EINLEGEN UND (null)ASTE DRUECKEN "
  58. 590 [161] X$:[139] X$[178]"" [167] 590
  59. 600 [153][199](147) :[158] 49152
  60. 610 [153]:[153]:[151]199,1:[153]" (null)ASTE DRUECKEN "
  61. 620 [161] X$:[139] X$[178]"" [167] 620
  62. 630 [137] 330
  63. 640 [143]
  64. 650 [143]
  65. 660 [143] ***************************
  66. 670 [143] ***  KOMMA ACHTER
  67. 680 [143] ***************************
  68. 690 [143]
  69. 700 [143]
  70. 710 T[178]18:S[178]1:Z[178]5
  71. 720 [159] 1,8,15
  72. 730 [159] 2,8,2,"#"
  73. 740 [152]1,"U1";2;0;T;S
  74. 750 [161]#2,T$,S$
  75. 760 P[178]T:Q[178]S
  76. 770 [139] T$[178]"" [167] T[178]0:S[178]255:[137]800
  77. 780 T[178][198](T$):S[178][198](S$):
  78. 790 [152]1,"B-P";2;1
  79. 800 [152]1,"B-P";2;Z:
  80. 810 [129] I[178]1 [164] 16
  81. 820 [161]#2,N$
  82. 830 D$[178]D$[170]N$
  83. 840 [130] I
  84. 850 [152]1,"B-P";2;Z
  85. 860 [139] D$[178]"" [167] 1510
  86. 870 [153][199](147):[153]:[153]:[153]"   (null)EXT STR$IREKTORY PEEKLOCK :"
  87. 880 [153]:[153]"   (null)RACK :";T;" (null)EKTOR :";S
  88. 890 [153]:[153]:[153]:[153]:[153]"   (null)ROGRAMM :";D$
  89. 900 [153]:[153]
  90. 915 [153]"   ";[199](18);"PEEK";[199](146);"ASIC ODER ";[199](18);"(null)";[199](146);"ASCHINENPROGRAMM"
  91. 920 [153]
  92. 930 [153]:[153]:[153]:[153]:[151]199,1:[153]"    <^> (null)EITER   <@> (null)OESCHEN      "
  93. 940 [161] X$:[139] X$[178]"" [167] 940
  94. 950 [139] X$[178]"B"[167] 1070
  95. 960 [139] X$[178]"M"[167] 1160
  96. 970 [139] X$[178]"^"[167] 1300
  97. 980 [139] X$[178]"@" [167] 1420
  98. 990 [137] 940
  99. 1000 [143]
  100. 1010 [143]
  101. 1020 [143] **************************
  102. 1030 [143] ** BASICPROGRAMM
  103. 1040 [143] **************************
  104. 1050 [143]
  105. 1060 [143]
  106. 1070 D$[178][200](D$,12)
  107. 1080 NE$[178]D$[170][199](160)[170]",8:"
  108. 1100 [152]2,NE$
  109. 1110 NE$[178]"":D$[178]"":Z[178]Z[170]32
  110. 1120 [139] Z[177]256 [167] Z[178]5:[137] 1510
  111. 1130 [137] 800
  112. 1140 [143]
  113. 1150 [143]
  114. 1160 [143] **************************
  115. 1170 [143] ** MASCHPROGRAMM
  116. 1180 [143] **************************
  117. 1190 [143]
  118. 1200 [143]
  119. 1210 D$[178][200](D$,11)
  120. 1220 NE$[178]D$[170][199](160)[170]",8,1"
  121. 1240 [152]2,NE$
  122. 1250 NE$[178]"":D$[178]"":Z[178]Z[170]32
  123. 1260 [139] Z[177]256 [167]Z[178]5:[137] 1510
  124. 1270 [137] 800
  125. 1280 [143]
  126. 1290 [143]
  127. 1300 [143] ****************************
  128. 1310 [143] ** KEINE AENDERUNG
  129. 1320 [143] ****************************
  130. 1330 [143]
  131. 1340 [143]
  132. 1350 [152]2,D$:D$[178]""
  133. 1360 Z[178]Z[170]32
  134. 1370 [139] Z[177]256 [167]Z[178]5:[137] 1510
  135. 1380 [137] 800
  136. 1390 [143]
  137. 1400 [143]
  138. 1410 [143] ****************************
  139. 1420 [143] ** LOESCHEN DES ANHANGS
  140. 1430 [143] ****************************
  141. 1440 [143]
  142. 1450 [143]
  143. 1460 D$[178][200](D$,12)[170][199](160)[170][199](160)[170][199](160)[170][199](160)
  144. 1470 [152]2,D$:D$[178]""
  145. 1480 Z[178]Z[170]32
  146. 1490 [139] Z[177]256 [167] Z[178]5:[137] 1510
  147. 1500 [137] 800
  148. 1510 [143]
  149. 1520 [143]
  150. 1530 [143] ****************************
  151. 1540 [143] ** RUECKSCHREIBEN
  152. 1550 [143] ****************************
  153. 1560 [143]
  154. 1570 [143]
  155. 1580 [139] T[178]0 [175] S[178]255 [167] [152]1,"U2";2;0;P;Q:[137] 1690
  156. 1590 [152]1,"U2";2;0;P,Q
  157. 1600 P[178]T:Q[178]S:[160]2:[160]1:[137]720
  158. 1610 [143]
  159. 1620 [143]
  160. 1630 [143]
  161. 1640 [143] ****************************
  162. 1650 [143] ** ENDE
  163. 1660 [143] ****************************
  164. 1670 [143]
  165. 1680 [143]
  166. 1690 [153]:[153]:[151]199,1:[153]"           (null)ASTE STR$RUECKEN          "
  167. 1720 [161] X$:[139] X$[178]"" [167] 1720
  168. 1730 [160]2:[160]1:[137] 330
  169. 1740 [158] 64738
  170.